home *** CD-ROM | disk | FTP | other *** search
/ Shareware Extravaganza - Disc 4 / Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso / cad / jul90.zip / TIP560.LSP < prev   
Text File  |  1990-07-09  |  407b  |  20 lines
  1. ;TIP560.LSP   View Selected QText   (c)1990, Brian Sallade
  2. (Defun C:VQTEXT (/ SS NUMB CNTR GLIST)
  3.   (setq SS (ssget))
  4.   (If SS (progn
  5.   (setq NUMB (sslength SS))
  6.   (setq CNTR 0)
  7.   (setvar "QTEXTMODE" 0)
  8.   (while (< CNTR NUMB)
  9.     (setq GLIST
  10.       (entget (ssname SS CNTR))
  11.     )
  12.     (entupd (cdr (assoc -1 GLIST)))
  13.     (setq CNTR (1+ CNTR))
  14.   )
  15.   ))
  16.   (Setvar "QTEXTMODE" 1)
  17. (princ)
  18. )
  19. 
  20.